Hola a todos, fijense que estoy haciendo una aplicación en la que manejo sentencias SQL en un control ADODC y me marca unos errores, al terminar los errores reviso la BD y si se actualiza la tabla a la que hago referencia...
Pongo el código que tengo para ver si me pueden ayudar con los detalles:
Private Sub Ejecutar_Click()
Dim SQL As String
Dim sBase as String
Dim Conexion as string
sBase = App.Path
sBase = sBase & "tablas2002.mdb"
Conexion = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & sBase
ADO.ConnectionString = Conexion
ADO.RecordSource = "C_Empleados"
SQL = "INSERT INTO C_Empleados VALUES ('010','Lemus','Gerente',120)" 'Datos de ejemplo
ADO.RecordSource = SQL
ADO.Refresh '>>> ***
End Sub
*** Apartir de esta linea me manda los mensajes
1er. Mensaje: La operacion no esta pemitida si el objeto esta cerrado
2do. Mensaje: Error '3704' en tiempo de ejecución:
Error definido por la aplicación o el objeto
El primer mensaje no se como evitarlo, el segundo lo puedo librar con un "On Error GoTo"